home *** CD-ROM | disk | FTP | other *** search
open in:
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: AMOS Basic Source Code Archive
(archive/amosSrc).
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 76 31 2e 33 34 |AMOS Bas|ic v1.34|
|00000010| 00 00 0a 64 20 01 06 52 | 00 38 2a 2a 2a 2a 2a 2a |...d ..R|.8******|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000050| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 20 20 20 20 |* .. ..R|.8* |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000090| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 41 4d 4f 53 |* .. ..R|.8* AMOS|
|000000a0| 20 50 72 6f 66 65 73 73 | 69 6f 6e 61 6c 20 50 72 | Profess|ional Pr|
|000000b0| 6f 63 65 64 75 72 65 20 | 4c 69 62 72 61 72 79 20 |ocedure |Library |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000d0| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 20 20 20 20 |* .. ..R|.8* |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000110| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 50 72 6f 63 |* .. ..R|.8* Proc|
|00000120| 65 64 75 72 65 3a 20 46 | 6f 72 6d 75 6c 61 20 50 |edure: F|ormula P|
|00000130| 69 63 74 75 72 65 20 43 | 72 65 61 74 6f 72 20 20 |icture C|reator |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000150| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 20 20 20 20 |* .. ..R|.8* |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000190| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 20 20 20 41 |* .. ..R|.8* A|
|000001a0| 75 74 68 6f 72 3a 20 4a | 6f 68 6e 20 4d 69 61 6f |uthor: J|ohn Miao|
|000001b0| 75 6c 69 73 20 20 20 20 | 20 20 20 20 20 20 20 20 |ulis | |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001d0| 2a 20 00 00 20 01 06 52 | 00 38 2a 20 20 20 20 20 |* .. ..R|.8* |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000210| 2a 20 00 00 20 01 06 52 | 00 38 2a 2a 2a 2a 2a 2a |* .. ..R|.8******|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000250| 2a 20 00 00 0b 01 06 52 | 00 0e 4a 6f 68 6e 20 4d |* .....R|..John M|
|00000260| 69 61 6f 75 6c 69 73 20 | 00 00 02 00 00 00 14 01 |iaoulis |........|
|00000270| 09 ea 00 3e 00 00 00 00 | 00 5c 00 3e 00 00 01 40 |...>....|.\.>...@|
|00000280| 00 5c 00 3e 00 00 01 00 | 00 5c 00 3e 00 00 00 20 |.\.>....|.\.>... |
|00000290| 00 5c 0c 90 00 00 82 01 | 0c fc 00 36 00 00 0f 0f |.\......|...6....|
|000002a0| 00 5c 00 36 00 00 0f 1f | 00 5c 00 36 00 00 0f 2f |.\.6....|.\.6.../|
|000002b0| 00 5c 00 36 00 00 0f 3f | 00 5c 00 36 00 00 0f 4f |.\.6...?|.\.6...O|
|000002c0| 00 5c 00 36 00 00 0f 5f | 00 5c 00 36 00 00 0f 6f |.\.6..._|.\.6...o|
|000002d0| 00 5c 00 36 00 00 0f 7f | 00 5c 00 36 00 00 0f 8f |.\.6....|.\.6....|
|000002e0| 00 5c 00 36 00 00 0f 9f | 00 5c 00 36 00 00 0f af |.\.6....|.\.6....|
|000002f0| 00 5c 00 36 00 00 0f bf | 00 5c 00 36 00 00 0f cf |.\.6....|.\.6....|
|00000300| 00 5c 00 36 00 00 0f df | 00 5c 00 36 00 00 0f ef |.\.6....|.\.6....|
|00000310| 00 5c 00 36 00 00 0f ff | 00 5c 00 36 00 00 0f ff |.\.6....|.\.6....|
|00000320| 00 5c 00 36 00 00 0f ef | 00 5c 00 36 00 00 0f df |.\.6....|.\.6....|
|00000330| 00 5c 00 36 00 00 0f cf | 00 5c 00 36 00 00 0f bf |.\.6....|.\.6....|
|00000340| 00 5c 00 36 00 00 0f af | 00 5c 00 36 00 00 0f 9f |.\.6....|.\.6....|
|00000350| 00 5c 00 36 00 00 0f 8f | 00 5c 00 36 00 00 0f 7f |.\.6....|.\.6....|
|00000360| 00 5c 00 36 00 00 0f 6f | 00 5c 00 36 00 00 0f 5f |.\.6...o|.\.6..._|
|00000370| 00 5c 00 36 00 00 0f 4f | 00 5c 00 36 00 00 0f 3f |.\.6...O|.\.6...?|
|00000380| 00 5c 00 36 00 00 0f 2f | 00 5c 00 36 00 00 0f 1f |.\.6.../|.\.6....|
|00000390| 00 5c 00 36 00 00 0f 0f | 00 00 0f 01 06 52 00 16 |.\.6....|.....R..|
|000003a0| 20 73 65 74 20 75 70 20 | 61 20 6e 69 63 65 20 70 | set up |a nice p|
|000003b0| 61 6c 6c 65 74 65 00 00 | 03 01 0d 34 00 00 03 01 |allete..|...4....|
|000003c0| 1d e0 00 00 06 01 0b b8 | 00 3e 00 00 00 00 00 00 |........|.>......|
|000003d0| 12 01 0d 62 00 3e 00 00 | 00 03 00 5c 00 3e 00 00 |...b.>..|...\.>..|
|000003e0| 00 00 00 5c 00 3e 00 00 | 00 1f 00 5c 00 3e 00 00 |...\.>..|...\.>..|
|000003f0| 00 01 00 00 15 01 06 52 | 00 22 20 63 79 63 6c 65 |.......R|." cycle|
|00000400| 20 63 6f 6c 6f 75 72 20 | 70 61 6c 65 74 74 65 20 | colour |palette |
|00000410| 61 74 20 73 70 65 65 64 | 20 33 20 20 00 00 1d 01 |at speed| 3 ....|
|00000420| 00 12 ff ec 0e 80 5f 66 | 6f 72 6d 61 70 69 63 5f |......_f|ormapic_|
|00000430| 69 6e 69 74 00 84 00 3e | 00 00 01 40 00 5c 00 3e |init...>|...@.\.>|
|00000440| 00 00 01 00 00 5c 00 3e | 00 00 00 00 00 5c 00 3e |.....\.>|.....\.>|
|00000450| 00 00 00 00 00 8c 00 00 | 19 01 06 52 00 2a 20 6d |........|...R.* m|
|00000460| 61 6b 65 20 66 6f 72 6d | 61 70 69 63 20 33 32 30 |ake form|apic 320|
|00000470| 2a 32 35 36 20 70 6f 73 | 69 74 69 6f 6e 65 64 20 |*256 pos|itioned |
|00000480| 61 74 20 30 2c 30 20 20 | 00 00 04 01 06 52 00 00 |at 0,0 |.....R..|
|00000490| 00 00 1a 01 06 52 00 2c | 20 2a 2a 2a 2a 2a 2a 2a |.....R.,| *******|
|000004a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004c0| 2a 2a 2a 20 00 00 0b 01 | 06 52 00 0e 20 20 46 6f |*** ....|.R.. Fo|
|000004d0| 72 6d 75 6c 61 20 70 69 | 63 20 00 00 1b 01 06 52 |rmula pi|c .....R|
|000004e0| 00 2e 20 20 43 72 65 61 | 74 65 73 20 66 61 6e 74 |.. Crea|tes fant|
|000004f0| 61 73 74 69 63 20 46 58 | 20 75 73 69 6e 67 20 6d |astic FX| using m|
|00000500| 61 74 68 73 20 66 6f 72 | 6d 75 6c 61 73 2e 20 20 |aths for|mulas. |
|00000510| 00 00 14 01 06 52 00 20 | 20 20 54 68 65 73 65 20 |.....R. | These |
|00000520| 61 72 65 20 6f 66 74 65 | 6e 20 73 65 65 20 69 6e |are ofte|n see in|
|00000530| 20 64 65 6d 6f 73 2e 20 | 00 00 1a 01 06 52 00 2c | demos. |.....R.,|
|00000540| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00000550| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000560| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 00 00 04 01 |********|*** ....|
|00000570| 06 52 00 00 00 00 11 01 | 06 52 00 1a 20 2a 2a 2a |.R......|.R.. ***|
|00000580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000590| 2a 2a 2a 2a 2a 20 00 00 | 10 01 06 52 00 18 20 78 |***** ..|...R.. x|
|000005a0| 73 3d 78 73 69 7a 65 20 | 6f 66 20 66 6f 72 6d 75 |s=xsize |of formu|
|000005b0| 6c 61 20 70 69 63 00 00 | 10 01 06 52 00 18 20 79 |la pic..|...R.. y|
|000005c0| 73 3d 79 73 69 7a 65 20 | 6f 66 20 66 6f 72 6d 75 |s=ysize |of formu|
|000005d0| 6c 61 20 70 69 63 00 00 | 11 01 06 52 00 1a 20 64 |la pic..|...R.. d|
|000005e0| 78 3d 78 73 74 61 72 74 | 20 6f 66 20 66 6f 72 6d |x=xstart| of form|
|000005f0| 75 6c 61 20 70 69 63 20 | 00 00 11 01 06 52 00 1a |ula pic |.....R..|
|00000600| 20 64 79 3d 79 73 74 61 | 72 74 20 6f 66 20 66 6f | dy=ysta|rt of fo|
|00000610| 72 6d 75 6c 61 20 70 69 | 63 20 00 00 11 01 06 52 |rmula pi|c .....R|
|00000620| 00 1a 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.. *****|********|
|00000630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 00 00 05 01 |********|*** ....|
|00000640| 06 52 00 02 20 20 00 00 | 26 01 03 76 00 00 02 8c |.R.. ..|&..v....|
|00000650| 00 42 00 00 00 06 00 00 | 0e 80 5f 66 6f 72 6d 61 |.B......|.._forma|
|00000660| 70 69 63 5f 69 6e 69 74 | 00 84 00 06 00 00 02 00 |pic_init|........|
|00000670| 78 73 00 5c 00 06 00 06 | 02 00 79 73 00 5c 00 06 |xs.\....|..ys.\..|
|00000680| 00 0c 02 00 64 78 00 5c | 00 06 00 12 02 00 64 79 |....dx.\|......dy|
|00000690| 00 8c 00 00 13 04 00 06 | 00 18 04 00 79 73 73 00 |........|....yss.|
|000006a0| ff a2 ff ca 00 74 00 06 | 00 06 02 00 79 73 ff ec |.....t..|....ys..|
|000006b0| 00 3e 00 00 00 02 00 7c | 00 00 10 04 00 06 00 1e |.>.....||........|
|000006c0| 04 00 79 65 65 00 ff a2 | 00 06 00 06 02 00 79 73 |..yee...|......ys|
|000006d0| ff ec 00 3e 00 00 00 02 | 00 00 13 04 00 06 00 24 |...>....|.......$|
|000006e0| 04 00 78 73 73 00 ff a2 | ff ca 00 74 00 06 00 00 |..xss...|...t....|
|000006f0| 02 00 78 73 ff ec 00 3e | 00 00 00 02 00 7c 00 00 |..xs...>|.....|..|
|00000700| 10 04 00 06 00 2a 04 00 | 78 65 65 00 ff a2 00 06 |.....*..|xee.....|
|00000710| 00 00 02 00 78 73 ff ec | 00 3e 00 00 00 02 00 00 |....xs..|.>......|
|00000720| 0c 04 02 e6 03 86 00 12 | ff da 0a 80 5f 65 72 72 |........|...._err|
|00000730| 5f 77 6f 72 6b 00 00 00 | 14 04 02 3c 01 94 00 06 |_work...|...<....|
|00000740| 00 30 02 00 79 00 ff a2 | 00 06 00 18 04 00 79 73 |.0..y...|......ys|
|00000750| 73 00 00 94 00 06 00 1e | 04 00 79 65 65 00 00 00 |s.......|..yee...|
|00000760| 14 07 02 3c 01 5e 00 06 | 00 36 02 00 78 00 ff a2 |...<.^..|.6..x...|
|00000770| 00 06 00 24 04 00 78 73 | 73 00 00 94 00 06 00 2a |...$..xs|s......*|
|00000780| 04 00 78 65 65 00 00 00 | 20 0a 00 06 00 3c 02 00 |..xee...| ....<..|
|00000790| 66 00 ff a2 00 74 00 06 | 00 36 02 00 78 00 ff e2 |f....t..|.6..x...|
|000007a0| 00 06 00 36 02 00 78 00 | ff e2 00 06 00 30 02 00 |...6..x.|.....0..|
|000007b0| 79 00 ff e2 00 06 00 30 | 02 00 79 00 00 7c ff ec |y......0|..y..|..|
|000007c0| 00 3e 00 00 27 10 00 00 | 27 0a 06 52 00 46 20 66 |.>..'...|'..R.F f|
|000007d0| 3d 66 6f 72 6d 75 6c 61 | 20 75 73 69 6e 67 20 78 |=formula| using x|
|000007e0| 20 61 6e 64 20 79 20 70 | 6c 75 73 20 6d 61 74 68 | and y p|lus math|
|000007f0| 73 20 66 75 6e 63 74 69 | 6f 6e 73 20 69 66 20 79 |s functi|ons if y|
|00000800| 6f 75 20 77 69 73 68 20 | 65 2e 67 20 4d 4f 44 2f |ou wish |e.g MOD/|
|00000810| 53 49 4e 20 00 00 1e 0a | 06 52 00 34 20 65 2e 67 |SIN ....|.R.4 e.g|
|00000820| 20 75 73 65 20 66 3d 28 | 28 78 2a 78 29 2b 28 79 | use f=(|(x*x)+(y|
|00000830| 2a 79 29 29 2f 32 30 20 | 6f 72 20 66 3d 28 28 78 |*y))/20 |or f=((x|
|00000840| 2a 79 2a 78 29 2b 28 79 | 2a 79 29 29 2f 32 30 20 |*y*x)+(y|*y))/20 |
|00000850| 00 00 0e 0a 06 52 00 14 | 20 6f 72 20 28 78 2a 79 |.....R..| or (x*y|
|00000860| 2b 79 2a 79 2a 78 29 2f | 31 30 30 20 00 00 07 0a |+y*y*x)/|100 ....|
|00000870| 10 44 00 06 00 3c 02 00 | 66 00 00 00 22 0a 0e 3c |.D...<..|f..."..<|
|00000880| 00 06 00 36 02 00 78 00 | ff c0 00 06 00 2a 04 00 |...6..x.|.....*..|
|00000890| 78 65 65 00 ff c0 00 06 | 00 0c 02 00 64 78 00 5c |xee.....|....dx.\|
|000008a0| 00 06 00 30 02 00 79 00 | ff c0 00 06 00 1e 04 00 |...0..y.|........|
|000008b0| 79 65 65 00 ff c0 00 06 | 00 12 02 00 64 79 00 00 |yee.....|....dy..|
|000008c0| 07 07 02 46 00 06 00 36 | 02 00 78 00 00 00 07 04 |...F...6|..x.....|
|000008d0| 02 46 00 06 00 30 02 00 | 79 00 00 00 03 01 03 90 |.F...0..|y.......|
|000008e0| 00 00 0f 01 03 76 00 00 | 01 88 00 00 00 00 00 06 |.....v..|........|
|000008f0| 00 00 0a 80 5f 65 72 72 | 5f 77 6f 72 6b 00 00 00 |...._err|_work...|
|00000900| 03 04 0d 52 00 00 0a 04 | 0c fc 00 36 00 00 00 00 |...R....|...6....|
|00000910| 00 5c 00 36 00 00 0f ff | 00 00 03 04 14 46 00 00 |.\.6....|.....F..|
|00000920| 06 04 0b b8 00 3e 00 00 | 00 00 00 00 06 04 13 dc |.....>..|........|
|00000930| 00 3e 00 00 00 00 00 00 | 06 04 13 d2 00 3e 00 00 |.>......|.....>..|
|00000940| 00 01 00 00 09 01 02 be | 00 82 03 fa ff a2 00 3e |........|.......>|
|00000950| 00 00 00 14 00 00 05 07 | 00 4e 01 00 01 18 00 00 |........|.N......|
|00000960| 14 07 13 e8 00 26 00 1d | 44 49 56 49 53 49 4f 4e |.....&..|DIVISION|
|00000970| 20 42 59 20 5a 45 52 4f | 20 41 54 20 56 41 52 41 | BY ZERO| AT VARA|
|00000980| 42 4c 45 20 46 00 00 00 | 05 07 04 76 00 54 04 76 |BLE F...|...v.T.v|
|00000990| 00 00 14 07 13 e8 00 26 | 00 1d 43 48 41 4e 47 45 |.......&|..CHANGE|
|000009a0| 20 46 4f 52 4d 55 4c 41 | 20 54 4f 20 41 56 4f 49 | FORMULA| TO AVOI|
|000009b0| 44 20 54 48 49 53 2e 00 | 00 00 06 07 12 9e 00 3e |D THIS..|.......>|
|000009c0| 00 00 01 f4 00 00 04 01 | 02 d0 00 9e 00 00 09 06 |........|........|
|000009d0| 02 be 00 90 03 fa ff a2 | 00 3e 00 00 00 1d 00 00 |........|.>......|
|000009e0| 05 07 00 4e 01 00 01 18 | 00 00 14 07 13 e8 00 26 |...N....|.......&|
|000009f0| 00 1d 4e 55 4d 42 45 52 | 20 54 4f 4f 20 4c 41 52 |..NUMBER| TOO LAR|
|00000a00| 47 45 20 41 54 20 56 41 | 52 41 42 4c 45 20 46 00 |GE AT VA|RABLE F.|
|00000a10| 00 00 05 07 04 76 00 54 | 04 76 00 00 1c 07 13 e8 |.....v.T|.v......|
|00000a20| 00 26 00 2e 20 43 48 41 | 4e 47 45 20 46 4f 52 4d |.&.. CHA|NGE FORM|
|00000a30| 55 4c 41 20 53 4f 20 4e | 55 4d 42 45 52 53 20 44 |ULA SO N|UMBERS D|
|00000a40| 4f 4e 54 20 47 45 54 20 | 54 4f 4f 20 20 48 49 47 |ONT GET |TOO HIG|
|00000a50| 48 2e 00 00 06 07 12 9e | 00 3e 00 00 01 f4 00 00 |H.......|.>......|
|00000a60| 03 07 02 da 00 00 03 01 | 02 da 00 00 03 04 06 70 |........|.......p|
|00000a70| 00 00 03 01 03 90 00 00 | 41 6d 42 73 00 00 |........|AmBs.. |
+--------+-------------------------+-------------------------+--------+--------+